home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 9 / AMUG BBS in a Box Volume IX (August 1993) (MacWizards).iso / Files / Prog / T / The Virtual Machine.cpt / VM Test Files / Funky.SRC < prev    next >
Encoding:
Text File  |  1992-03-16  |  278 b   |  19 lines  |  [TEXT/KAHL]
  1. ;This is a funky PDP-8 assembly language program
  2. START:        JMP        REALSTART 
  3. VALUES:        DATA    1,3,3,4,5
  4.             STORE    5
  5. REALSTART:    CLA
  6.             TAD        VALUES ; loop
  7. LOOP:        IAC
  8.             SNA
  9.             JMP        LOOP
  10.             RAL
  11.             HLT
  12.             JMP        5
  13.             
  14. FIDDLE:        NOP
  15.             ISZ        TEST
  16.             RTR
  17.             JMP        FIDDLE        
  18. TEST:        DATA 25            
  19.             END